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VERILOG EXAMPLE 



module BiDiWirelO (PORT_A, PORT_B) ; 
inout PORT_A, PORT_B; 
reg cl, c2; 

initial begin 
d=1 'bO; 
c2=1 'bO; 
end 

nmos A1 (PORT_A, n, d) ; 
nmos A3 (n, PORT_B, 1 'b1) ; 

nmos A2 (PORT_B, m, c2) ; 
nmos A4 (m, PORT_A, 1 'b1) ; 

always @ (m) 

if (m ! = = n) begin 

d = 0; 

c2 = 1; 
end 

always @ (n) 

if (m ! = = n) begin 

d = 1; 

c2 = 0; 
end 

specify 

(PORT_B +=> PORT_A) = (0.0:0.0:0.0 ,0.0:0.0:0.0) 

(PORT_A +=> PORT_B) = (0.0:0.0:0.0 ,0.0:0.0:0.0) 
endspecify 

endmodule 
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VITAL HDL EXAMPLE (PART 1) 




library IEEE; 

use IEEE.STD LOGIC 1164.all; 
library IEEE; 

use IEEE.VITAL_Timing.all; 






- - entity declaration - - 
entity BiDiWirelO is 
generic ( 

tpd PORT B PORT A 
(0.100 ns, 0.100 ns) ; 

tpd PORT A PORT_B 
(0.100 ns, 0.100 ns) ; 

tipd_PORT_A 
ns, 0.100 ns) ; 

tipd PORT B 
(0.100 ns, 0.100 ns) ; 


: VitalDelayTypeOI : = 
: VitalDelayTypeOI : = 
.: VitalDelayTypeOI : = (0.100 
: VitalDelayTypeOI : = 


port( 

PORT B : inout STD LOGIC; 

PORT A : inout STD LOGIC); 
attribute VITAL_LEVEL0 of BiDiWirelO : entity is TRUE; 
end BiDiWirelO ; 


- - architecture body - - 
library IEEE; 

use IEEE.VITAL_Primitives.all; 
architecture ARCH_VITAL of BiDiWirelO is 




SIGNAL PORT B ipd 
SIGNAL PORT_A_ipd 


: STD LOGIC := 
: STD_LOGIC := 


■Z'; 
'Z'; 


SIGNAL PORT B zd 
SIGNAL PORT_A_zd 


: STD LOGIC := 
: STD_LOGIC := 


'Z'; 
'Z'; 


SIGNAL d 
SIGNAL c2 


STD LOGIC := '0'; 
STD_LOGIC := ' 0 1 ; 




begin 






WireDelay : block 
begin 

VitalWireDelay (PORT A ipd, PORT_A, tipd_PORT_A) ; 
VitalWireDelay (PORT_B_ipd, PORT_B, tipd_PORT_B); 
end block; 



FIG. 5 
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VITAL HDL EXAMPLE (PART 2) 



PORT_A_zd <= PORT_B_ipd when d = ' 1 ' else ' Z ' ; 
PORT_B_zd <= PORT_A_ipd when c2 = ' 1 ' else ' Z ' ; 

d <= ' 1 ' when PORT_B 'event and (PORT_A /= PORT_B) else 
' 0 ' when PORT_A 'event and (PORT_A /= PORT_B) else 



c2 <= ' 0 ' when PORT_B 'event and (PORT_A /= PORT_B) else 
' 1 ' when PORT_A 'event and (PORT_A /= PORT_B) else 
c2; 

VITALBehavior : process (PORT_A_zd, PORT_B_zd) 



variable PORT_B_GlitchData : VitalGlitchDataType; 
begin 

VitalPathDelayOI ( 

OutSignal => PORT_A, 

GlitchData => PORT_A_GlitchData, 

OutSignalName => "PORT_A", 

OutTemp => PORT_A_zd, 

Paths => (0 => (PORT_B_ipd 'last_event, 
tpd_PORT_B_PORT_A, TRUE)), 
Mode => OnDetect, 
Xon => True, 
MsgOn => True, 
MsgSeverity => WARNING) ; 

VitalPathDelayOI ( 

OutSignal => PORT_B, 

GlitchData => PORT_B_GlitchData, 

OutSignalName => "PORT_B", 

OutTemp => PORT_B_zd, 

Paths => (0 => (PORT_A_ipd 'last_event, 
tpd_PORT_A_PORT_B, TRUE)), 
Mode => OnDetect, 
Xon => True, 
MsgOn => True, 
MsgSeverity => WARNING) ; 

end process; 
end ARCH VITAL 



variable PORT A GlitchData 



: VitalGlitchDataType; 




